home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / pixel page (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  950b  |  36 lines
  1. 10 ifx=0thenx=1:gosub260:                  load"unpacker",8,1
  2. 20 ifx=1thenx=2:load"pixel.shp",8,1
  3. 30 poke249,224:poke250,204:                 rem screen/color
  4. 40 poke251,0:poke252,64:                    rem shp buffer
  5. 50 poke253,0:poke254,0:                     rem   x-pos,y-pos
  6. 60 print"[145][145]  [208]ress space bar to view [208]ixel [208]age."
  7. 70 print" [208]ress it again to return to [204]oadstar."
  8. 80 wait198,1:poke198,0
  9. 90 :
  10. 100 s=54272:fori=0to24:pokes+i,0:next
  11. 130 :
  12. 140 sys51456:                                   rem picture
  13. 150 :
  14. 160 sys51459:    rem  show screen
  15. 200 poke198,0:wait198,1
  16. 210 sys51459
  17. 220 :
  18. 230 forv=15to0:pokes+24,v:next
  19. 231 print"[147]":poke53281,0:poke53280,0
  20. 240 print""spc(9)"[210]eturning to [204][207][193][196][211][212][193][210]...."
  21. 250 poke40961,23:load"hello connect",8:end
  22. 260 rem  main screen
  23. 270 poke53280,0:poke53281,0:print"[147]"chr$(8)
  24. 280 printspc(13)"[158][204][207][193][196][211][212][193][210] #24"
  25. 290 print""spc(14)"[208]ixel[160][208]age"
  26. 300 print:print:print
  27. 310 print
  28. 320 print"[158]      [204][207][193][196][211][212][193][210] remembers our lady."
  29. 330 print
  30. 340 print
  31. 342 print
  32. 350 print"[154]   [195]over designed by [212]om [198]retz using"
  33. 360 printspc(16)"[196][207][207][196][204][197]."
  34. 370 print"[156]    [204]oading picture...please wait."
  35. 380 return
  36.